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EXPLICACION 
DE LOS PROGRAHAS 


JACK 


A 


10 COLOR1.13.13:SCREEN3 

20 OPEN"GRP: "ASRi 

30 DRAW"BM50,50":PRINTRi., "BLACK": DRAW"BM60.120":PRINTR1, "JACK" 

40 FORZ=3TOOSTEP-1: SOUND1,Z: SOUNDS, 8: FORX=255TO1STEP-1: SOUNDO.X: NEXT: SOUNDS, 0: FO 

RX=1TO10:NEXT: NEXT 

50 COLOR15,4,4:WIDTH39:SCREENO 

90. PE=0:PU=O:.CLS: INPUT"CUAL ES TU. NOMBRE"+sU$: IFLEN(Us)>12G0TO. 90 

100 LOCATEO.10:PRINT"DIME QUE LETRA PULSARAS CUANDO QUIERAS ABANDOMAR EL JUEGO": 

AB+$= INPUTS (1) : IFABS>"O"ANDABS< "4" THENCLS: GOTO1OOELSEPRINT:PRINT"PARA ABANDONAR P 

ULSA: "¡ ABS: FORT=1702000: NEXT 

110 DIMNS(T1Y3 PST UTIL; OTEEISI7U CEST TRESTORESOOO! FORISOTO LT IREADISTNS TENSION 

EXTI:FORI=0TO3:READIS:P$(1)=J$:NEXTI:FORISOTO11:READI:V(1)=J:NEXTISCREENZ: COLOR 
15.2.43CLS e . 

190 LINE(0.0)-(256.9),5/BFiDRAW"BMO.1":PRINTRi,." BLACK JACK 1986 G.T.S" 
¿LINE (4,24)-(32,34).5,BF:DRAW"BEM9.26":PRINTRi. "MSX":PJ=0: GOSUBSS50O 

195 LINE(A, 88) - (B+BXLEN (US) ,98), : 5: BF:DRAW"BM9,90":PRINTRi, US: GOSUBS600: GOSUB7500 

300 GoTO 900 

500 ERASEM:¿DIMM(11.3): RETURN 

3800- GOSUB7500: DRAW"BMDS; 178" :PRINTR1+*TU GANAS": BEEP:PJ=VU:FORI=0T0800:7NEXT1:G0S 

UBS600: RETURN 

310 GOSUB?7500: DRAW"EM99, 178": PRINTR1, "YO GANO": BEEP: BEEP:PJ=VE:FORI=0T0800: NEXT1 
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UBS500: RETURN 

GOTO 7500: DRAW"BMS2,178":PRINTR1, "NOS PASAMOS LOS DOS": BEEP: FORI=0T0800: NEXT 
TURN 

GOSUB990: GOSUB996: GOSUB1OOO: GOSUBI94 : GOSUBZ000: GOSUB3502: FORI=0TO1000: NEXTI 
VE=VA: IF (VU>21)AND(VE>21)THENGOSUB820: GOTO 950 

IF(YU<=21) AND(VU>=VE) THENGOSUB800: GOTO 950 

IF (VE<=21) AND (VU<VE) THENGOSUBS10: GOTO 250 

IFVU>21THENGOSUBS10:GOTO 950 

IFVE>21THENGOSUB8S00: GOTO 950 

SEE od A o 


1000: NEXTI1I 

960 IF (VU>21) AND(VE>21)THENGOSUBES20+GOTO 200 

962 IF(VU<=21)AND(VU>VE) THENGOSUBSO0O: GOTO 200 

964 IF (VE¿<=21)AND(VU<=VE) THENGOSURBS10: GOTO. 200 

966 IFVU>Z1THENGOSUBS10:6G0TO 900 

968 IFVE>21THENGOSUBSO0O:GOTO 200 

980 GOTO 200 

990 GOSUBSOOO: GOSUBSOO:NC=1:X=401 GASUBÉ6LOO: X=104: GOSUBS6100:NC=2:X=3907 GOSUBÓ61OO: X 
=104+GOSUB61O00 RETURN 

994. GOSUB7500:DRAW"BM96.1738"2PRINTRi."MI..TURNO":BEEP: FORI=0T0800:NEXTI¿RETURN 
996 GOSUB?500:DRAW"BM96., 178": PRINTRi."TU TURNO": BEEP: FORI=0T0800: NEXTI: RETURN 
1000 ERASEU:DIMU( 12): NC=0: GOSUBSIOO: X=104: GOSUB6200: GOSUBSI1OO! GOSUB6200 

1001 Q=1: GOSUB4000: IFVA>21 THENGOSUB?7000: VU=VA: VA=0: RETURN 

1002 GOSUBISOO: IFR$="2"GOTO 1100 

1010 GOSUBS100: GOSUBSO0OO 

1020-G60T0- 1001 

1100 VU=VA:6=31G60SUB4000: RETURN 

1500. GOSUB?500: DRAW"BMS.178":PRINTRi."¡i1é OTRA CARTA ¡2ó ME PLANTO”: BEEP 
1502 POKE62456!.240: POKE62457!,251:P0OKE62458!,240: POKE62459!,251:R$=INPUTS$(1) 


1503 
1504 
1506 
2000 
2010 
2012 
2014 
2015 
2016 
2020 
2030 
2040 


2045 
2070 


2071 
2072 
2074 
2076 
2078 
2080 
2090 
3000 
3010 
3500 
3502 
3600 
4000 
4020 
4040 

050 
4060 


2009 


IFR$=ABSTHEN10000 

IFR$="1"O0RR$="2"THENGOSUBE?SOO: RETURN 

GOTO 1502 

ERASE: DIMU (12): 4S=YA+71-1FVS>20THENVS=17 

Xx=40:NC=0: GOSUBS100:P1=55:C1=S: GOSUBS100:P2=5S:C2=S:8=1 
GOSUB4000: IFVA>=18GOTO 3600 

GOSUB4000: IF (VU>21) AND(VA<=1 1) THENGOSUB5100: GOSUB4000: GOSUB6000: GOTO 3600 
GOSUB4000: IFVU>21GOTO 3600 

IFVS=0GO0TO 2045 

GOSUB4000: IFVA<VSTHENGOSUB3OOO: IFVA>21GOTO 3500 
IFVA<VSGOTO 2020 

IFVA>21G0TO 3500 


IFVA<=11GOTO 3010 
IFVA=12THENIFRND(-TIME)<.98GOTO 3010 


IFVA>=18GOTO 3600 

IFVA=13THENIFRND(-TIME)<.9GOTO 3010 
IFVA=14THENIFRND(-TIME)<.860TO. 3010 
IFVA=15THENIFRND(-TIME)%.660TO 3010 
IFVA=16THENIFRND(-TIME)<.35G0TO 3010 
IFYA=17THENIFRND(-TIME)<.15GOTO 3010 

GOTÓ 3400 

GOSUBS100:GOSUBSODO: GOSUB4O000: RETURN 
GOSUB5100:GOSLUB6000:G0SUB4OOO: GATO -2040 

GOSUB7500: DRAW"BEM99..1728".:PRINTRi. "ME PASE": BEEP:FORI=0T0600:MEXTI 
x=40:55=P1:5=C1:NC=1 : GOSUB6000: 53=P2;5=C2:NC=2: GOSUB6000 : RETURN 
GOSUB7500: DRAW"BM91,178":PRINTRi, "ME PLANTO": BEEP:FORI=0T0900:NEXTI: RETURN 
VA=0: FORI=0T012:VA=VA+U(1):NEXTI 

IFVA¿=21THENRETURN 

FORI=ATO12: 1FU(I)<>1160T04060 


VA=VA-101 1 FVA<=21 THENRETURN 
MEXT1: RETURN 
LINESO. 901-1256» 22122. BR:1LI1IME(0.103)- 12561 159). Z2.BF:RETURN 
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5100 S=INT(RND(-TIME)X12):SS=INT(RND(-TIME)X4): IFM(5S.SS)=1GOTO 5100 

5104 NC=NC+1:U(NC)=V (5) :M(5,55)=1: RETURN 

5200 IFSS<2THENCO=é6ELSECO=1 

5202 RETURN 

5500 PE=PE+PJ:W=SXLEN(STR$(PE))1LINE(120,24)=(120+W,34).5,BFIDRAW"BM120:26":PRIN 
TRi. PE: BEEP:RETURN 

5600 PU=PU+PJ:W=8XLEN(STR$(PU)):LINE(120.88)-(120+W.98).5.BF:DRAW"BM120.90":PRIN 
TRi.PU:BEEP:RETURM. 

£000 LINE (-16+24XNC.X)-(8+24KNC.X+32),15.BF:H=-16+24XNC:K=X 

6010 GOSUB5200: COLORCO: KK=K+1: HH=H+41 DRAW"BM=HH3 .=KK3 "1 PRINTRi.N$(S):KK=KK+10: DR 
AW"BM=HH3 ,=KK3 "¡PRINTRI.PS(55) ¡BEEP:COLOR15:RETURN 

6100 LINE(-16+24%NC.X)-(8+24%NC.X+32),15, BF: COLOR6:FORI=0TO3:H=-16+24%NC:K=X+8%I 
¿DRAW"BM=H3..=K+"1PRINTRi, “LLL"INEXTI1BEEP: COLOR1S: RETURN 
£200..GOSUBS100:LINE(H.X)-(H+15,X+19).15. BF :K=X+1:G605UB6010: RETURN 

7000 GOSUB?7500: DRAW"BM48.178":PRINTR1."LO SIENTO TE PASASTE": BEEP:FORI=0T0850:NE 
XTI: RETURN 

7500 LINE(0.170)-(256,196).5, BF: BEEP: RETURN 

9000 DATAVAS pa 3 gs ag rg e ge o A OR O e ga ER TEN 
9002 DATA11,2.3.4:5,6:7,8:9,10,10,10 

10000 -COLOR1S, 4, 4: SCREENO:LOCATE4,10:PRINT"PARA OTRA PARTIDA PULSA-P":+LOCATE4,12 
¿PRINT"PARA.OTRO PROGRAMA PULSA.F":R$=INPUTS$(1):1FR$="P"ORR$="p"THENRUNELSEIFRS< 
>"F"ANDR$<>"4 "THEN1O00O 

10010 CLEAR:CLS:LOCATE4,8:PRINT"PARA EL SIGUIENTE PROGRAMA":LOCATE4., 10: PRINT"PUL 
SA PLAY EN EL CASSETTE" 

10020 CLOAD 
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¡EUA IAN AN A/A ME MIDA MB MM WM M BB. 


000000000000000 


100000 

20? 0000 0000 

30? 0000 DADOS o000 
40—*-0-00-0 0-0-9-9- 
50--*-..0--Q--0---0.--0.-0|-0.-0--0.-0-.00-:0-.0..0-0..0..0.-D 
so * 


70 COLOR 3.6.,10 

380 SCREEN 3 

90 OPEN"GRP: "ASR1 

100 PSET(45,80).,6:PRINTRi."DADOS” 

110 FOR-Y=1-TO-1500:NEXT 

120 CLOSE. 

130 KEY. OFF:SCREEN.O; WIDTH. 39: COLOR 1.15.4 

140 RESTORE 1170:LOCATEO.22:FOR I=1 TO 13:READ X$: LOCATE O, 1%2:BEEP: PRINTXS: NEXT 
1 

150 X$=INKEYS: 1F X$="" THEN 150 ELSE CLs 

160 CLS:INPUT"Cual es tu nombre":N$: IF LEN(N$)>10 THEN CLS:GOTO. 160 

170 OPEN"arp:"ASRi:SCREENZ:DRAW"bm8,16":PRINTR1+N$5": O" :-DRAW"bm170.15".:PRINTRI. 


MSX "2G0TO. 220 
180 DRAW "BM 64.178":PRINTRi."O:OTRA F:FIN" 


190 X$=IMKEYS: IF X$="" THEN 190 ELSE IF X*$="0” OR X$="0" THEN 200 ELSE IF x$="F" 
OR X$="+" THEN 1110 ELSE 190 

200 SU=O:1F IN=1 THEN IN=0:GOTO 370 

210 IF CIN=0" THEM IN=1:LINE(S5ó6.26)-(200,;192),15:BFILINE(136,0)-(162,9),15,BF:G0TO 
300 : 


RESTORE 1160:SU=0:FOR I=1 TO 6:READX$:C$(1)=X$:NEXT_ 1: x=RND(-TIME)51F X<.5 T 
300 ELSE 370: IM=0 

IF SU<21 THEN RETURN 
IF SU=21 THEN DRAW"bm88, 168": PRINTR1, "HAS GANADO": GU= GU+1:GOSUB 1120:GOTO 18 


IF"SU>Z1 THEN-DRAW"EMSS. 168": PRINTR1+ "HAS PERDIDO": GM= Gm+1: cosuB 1140:G60T0O- 1 


DPAW.."BMó64,.158":PRINTRI, 
270 IF su<21 THEN RETURN 
IF su= 21 THEN DRAW"bm88+ 168":PRINTR1, "HE GANADO": GM= -GM+1: GOSUB 1140: GOTO 18 


"ELIJO. LA. CARA: ":¡CE:BEEP 


¿1F suyz1 THEN DRAW"EM8S8. 168":PRINTRI, "HAS GANADO": GU=GU+17GOSUB 11207G0TO is 


IN=1:DRAW"bm. 64.16 ":PRINTR1. "Que cara escoges": DRAW"bm 32. 178":PRINTRi.,. "1 2 
3.4.5. 6":BEEP 
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310 X$=INKEYS:1F X$="" THEN 310 ELSE IF X*$<"1" OR Xs$>"6" THEN 310 ELSE 360 

320 DRAW"bm 64. 168": PRINTAÍ, "Que cara escoges”: BEEP:DRAW"bm 38.178" :FOR 1=1 TO 4 
:PRINTR1I,MIDS(C$(0S), 1,1): O" MEXT I:BEEP 

330 XB$=IMKEYS: IF x$="" THEN 330 

340. FOR. -I=1.-TO0-4:1F MID$(C0$(408).1,1)=X$- THEN. 360 

350 NEXT..1:GOTO.330 

360 CE=VAL (X%) :CS=CE: GOSUB 420: GOSUB 230:FOR I1=0 TO S00:NEXT 1:GOTO 370 

370 1F SU>O THEN 400 

380 X=RND(-TIME):1F X<.5 THEN CE=3 ELSE CE=4 

390 GOTO 4107 : 

400 (ON -SU GOSUB 880,870;850;830,810,790,770;750,730,710,690,670:/650,/630,610,590, 
570,550.530,510 

410 CS=CE:GOSUB 420:GOSUB 260: GOTO 320 

420 LINE (56,26) - (200,192).15:/BF:BEEP:LINE(136,0)-(162,9),15:BF: BEEP. 

430 SU=SU+CE:DRAW"bm96., 1":PRINTRI. "Suma="3SU: BEEP: GOSUB1100:GOSUB 440: RETURN 

440 IF CE=1 THEN 7=0: GOSUB910:7=64: GOSUB940: GOSUBI70: GOSUBISO: GOSUBLOZO: GOSUBIO? 


450 IF-CE=2 THEN Z=0:G605UB930:Z=64: GOSUBS90: GOSUBIG60: GOSUBI90: GOSUB1O201 GOSUBLO? 
460 IF CE=3 THEN Z=0: GO0SUB?900:Z=64: GOSUB920: GOSUBI 70: GOSUB?30: GOSUR1O40: GOSUBILOS 


470 IF CE=4 THEN Z=0:GOSUB920:Z=64: GOSUB9OO: 


480 IF CE=5 THEN 2=0:G0SUBS90:Z=64: GOSUBO93O: GOSUBISO: GOSUB1OOO: GOSUBI1O20: GOSUBILO 


490. IF.CE=6 THEN Z=0: G0SUB940:Z=64: GOSUB910: GOSUB?20:1 GOSUB980: GOSUBI1O3O! GOSUBIOÓ 


500 RETURN 

510 1F CS=1 OR CS=6 THEN CE=2 ELSE CE=1 
520 RETURN 3 

530 IF CS=2 OR CS=5 THEN CE=1 ELSE CE=2 
540 RETURN 

550 1F.C3=3.0R-CS=4. THEN. CE=1. ELSE. CE=3 
560 RETURN 

570 IF C5=3 OR CS=4 THEN CE=2 ELSE CE=4 
580 RETURN 

590 IF Cs=2 OR CS=5 THEN CE=1 ELSE CE=5 
$00 RETURN 

610 IF-CS=1 OR-CS=6 THEM CE=3-ELSE-CE=6 
620. RETURN 

630 1F CS=2 OR CS=5 THEN CE=3 ELSE CE=2 
640 RETURN 

£50 IF CS=3 OR CS=94 THEN CE=1 ELSE CE=4 
$60 RETURN 

670 IF -CS=1 OR CS=6 THEN CE=2 ELSE CE=1 
680 RETURM 

690 1F.C0S=2. OR CS=5. THEN. .CE=1. ELSE CE=5 
700 RETURN 

710 IF CS=2 OR CS=5 THEN CE=3 ELSE CE=2 
720 RETURN 

730 1F CS=3 0R CS=4 THEN CEs1 ELSE CE=3 
740 RETURN 

750..1F..0S=3.0R-CS=4.THEN CE=1 ELSE. CE-=4 
760 RETURN E 

770 1F CS=2 OR CS=5 THEN CE=1 ELSE CE=5 


-780 RETURN 


790 1F Cs=1 OR Cs=6 THEN CE=3 ELSE CE=6 
3800 RETURN 
310-IF-E€S=2-0R-CS=5-THEN CE=3 ELSE CE=2 
220 RETURN 
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330 1F Cs=1 OR cs= 2 THEN CE=4 ELSE CE=1 

3840 RETURN 

250 IF CS=1 THEN CE=2 ELSE CE=1 

360 RETURN E 

870 CEST? RETURN 

280 CE=2:RETURN : : á : 

3890-X=135:Y=63+Z:GOSUB 1090: X=119: Y=29+Z1GOSUB 10920. 

900 X=119:Y=63+2:GOSUB 1090: X=1351Y=79+Z:GOSUB 1090 

910 Xx=127:Y=7?1+Z:GOSUB 1090: RETURN 

920 X=135:Y=63+Z:GOSUB 1090: X=119:Y=79+Z:GOSUB 1090 

930 x=119:Y=62+2Z:GOSUB: 1090:x=135: Y=79+Z: GOSUB1090: RETURN 

990 X=135: Y=63+Z 1 GOSUB 1090: X=119:Y279+Z: GOSUB 10907 X=119:Y=63+Z: GOSUB 1090: x=13 
SiY=79+Z1GOSUB 1090: X=1271Y=63+Z: GOSUB 1090: Y=79+Z: GOSUB 1090:RETURN 
2950..X=127:Y=431GOSUB..1090: RETURN . 

960 X=127:Y=39: GOSUB_ 1090:X=151:GOSUB. 109%0:X=111:Y=47:GOSUB 1090: X=127:GOSUB 109 
a 

970 X=103:Y=39:GOSUB 1090;X=143:Y=47:GOSUB 1020: RETURN 

980 X=111:Y=95:GÓSUBE 1090: X= 0143: GOSUB 10%0:Xx=103:Y=103:GOSUB 1090: X=151:GOSUB 10 
E 

990-X=1271Y=99:GOSUB 1090:RETURN . : 

1000 X=111:Y=25:GOSUB..1090:X=143: GOSUB- 1020: X=103:Y=103: GOSUB..1090:X=151:G0SUB 1 
090: X=127:Y=95:G0SUB 1090: Y=1031GOSUBE 10720:RETURN 
1010 X=151:Y=71:GOSUB 1090: X=159:GOSUB 1090: 
1020 X=151:Y=55:GOSUB 1090: Y=87:GOSUB 1090:X=159:Y=47:GOSUB 1090: Y=95:GOSUB 1090 
¿RETURN 

1030 X=1511Y=557 GOSUB" 1090: X=+159;Y=95:GOSUB 1090 

1040 X=156:Y=7?21 GOSUB-109%0:+RETURN 

1050.-.X=25:Y=711GOSUE 1090: X=103:GOSUB 1090 . 

1060 Xx=25;Y=47;GOSUB 1090: Y=2?5:GOSUB 10%0:X=103:Y=55: GOSUB 1090: Y=87:G0OSUB 1090: 
RETURN 

1070 Xx=95:Y=47:GOSUB 1090: X=103:Y=87: GOSUB 1090 

1080 X=99: Y=720: GOSUB 1090: RETURN 

1090 DRAW "bm=x3t¿=yY91 r2dll2uzr2": RETURN 

1100 PLAY"O3L3COSL1G6BLSD”:DRAW"bm-87,31 rel d81 181 u81":DRAW"bm112,56 c7 r31 d3 
11131 usi":DRAW"bm.87,31 c1.£25.bf31 $25 busS1 a25 ba31 a25":DRAW"bm 112,120 r31 
d31 131 u31":PAINT (114.58).7:COLOR 1:RETURN 

1110 CLEAR:COLOR15.4.94:SCREEN O:LOCATE 3.10:PRINT"PULSA PLAY PARA PROXIMO PROGRA 
MA": CLOAD 

1120 PLAY" E25504L16FEFOSDOGB= B-B-05C04AAALEBB-GR1G05L1ó6CCO4B-LEBB-AL1IGAB-B-ALEGF": 
LINE (0,14)-(136,25),15,BFIDRAW"BM8, 16":PRINTRI,N$3":5 "GU 

1130.-1F.PLAY(1)=-1 THEN-1130 ELSE RETURN 
1140..PLAY"o4LSADSL2DL4DC+094LZAL4ARSLBAO5SLEZDLA4DLSEC+L2DLIDASLECOSLEZB-LEB-05CDO4B= 
L2AL49A" LINE (138. 14)-(256,25),15.BF:DRAW"BM170. ISP1ERINTRL, MMS) 15.89 

1150 IF PLAY(1)=-1 THEN 1150 ELSE RETURMN 

1160 DATA"2345","1346","1256","1256"."1346","23495" 


1170 DATA" DADO 21"." El obietivo del presente juego es ni"."m s ni 
menos que obtener 21 puntos. ty", "como se obtinen los puntos?; muy facil; "; "sum 
ando el. valor de la cara superior" 

1180 DATA"del dado oue aparece en rara perspec-="."*"tiva.. Por turno se ha.de ir vo 
lteando"."el dado. el que alcarze los 21 puntos”."9ana. el oue se pase pierde."., 


sá od PULSA TECLA PARA COMENZAR" 


1987. - AMIGOS. DEL MSX - 9 


CUESTA 


100 
110 
120 
130 
140 
150 
160 
170 
130 
190 
200 
210 
220 
230 
230 
250 
260 
270 
280 
290 
300 
310 
ES 

320 
330 
340 
350 


000000000000000 


CUESTA 


DOO 
000 
0-00 
000 


000000000000000 


o.000£00 
000000 


"LUIS SANGUINO ARIAS 


: 1986 
'Q000000005600000900000 
COLOR 1.3.10 
SCREEN 3 
OPEN"GRP: "ASP 
PSET(40.80).3:PRINTR1. "CUESTA" 

FOR Y=1 TO 1500:NEXT 


CLOSE 

COLOR 1,14 

SCREEN 1 

LOCATE 3.10:PRINT"JOTSTICK O CURSOR”"J/C3" 
X$=INKEYS 

I=1+1:IFI>13 THEN. I=1 

VDP (7)=1 

IF X$="J"OR X$="i" THEN CT=1:G0TO270 

IF X$="c"OR X$="C" THEN CT=0: 60710270 
GoaTo 210 


COLOR 1,15.8:SCREEN "2.2.1 
OPEN*"GRP:"ASPei 


553 


Ro 


E A 


DRAW."C3BMO. 180R29U21E25R1P9E4UZO0E12R37E18RiSEGUZOR1G6EZO0U1R1IGESUISRIAE1GUIDA 


PAINT (1,.191).3 


- 
3 


FOR K=1 TO 2 :BS="":FORI=1TO 32 ¡READ AS: BS=BH+CHR$ (VAL ("RH"+A%)) ¿NEXT:SPRIT 


(K)=B$: NEXT 

VI=S 7 

-GOSUB" 750 

-A=51Y=1649 : E 
A=1:B=2:PX=240:PY=-4:E=6:6=7 
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360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
sio 
520 
530 
3590 
550 
560 
570 
580 
590 
600 
610 
620 
630 


640 
650 
660 


670 
680 
670 
700 
710 
720 
730 
740 
750 
760 
270 
780 
790 
3800 
sio 


ON SPRITE GOSUB 590 

PX=PX-4:PY=PY+4 

1F FOINT(PX+8, PY+26)<>3 THEN PY=PY+3 

IF UPOINT(PX+8,PY+18)=3 THEN PY=PY-3:PX=PX-3 
IF-PxX<=0 THEN PY=-9:PX=240 : 
IF..F=0..THEN PUTSPRITE 1. (X.Y).1,A 

IF F=1 THEN. PUTSPRITE 14, 1X,Y),» 1, € 

IF F=2 THEN PUTSPRITE 1, (X.Y). 1. 5 


PUTSPRITE 2, (PX,PY), 6, E 
GOSUB 490 

IF MM=0 THEN SPRITE ON 

SWAP EG . 

GOTO 370 

IF_MM=0 THEN S=STICK(CT) 

IF S=3 THEN X=X+2:Y=Y-2:SWAP A Ane: F=0 
IF S=7 THEN X=X-2:Y=Y+2:SWAP C.D:F=1 


IF S=5 THEN F=2 

IF POINT(X+12,Y+16)<>3 THEN Y=Y+2 
IF-POINT(4X+12,Y+14)=3- THEN Y=Y-2 
IF Y<=-8..THEN. 630 

IF _ X<=0 AND MM=1 THEN MM=0 :GOSUB 750 
IF x<=0 THEN Xx=0 

RETURN 

SPRITE OFF 

VI=V1-1 

MM=1:5=7:D=31C=5:PY=209 

RETURN 

PÚ=PU+ 100: BEEP: BEEP: BEEP 

LINE (70.180)-(180,192).15.BF 


PSET(76,182),15: PRINTRi. "PUNTOS=":PU 
GOTO 340 


SCREEN. 1:KEYOFF 

LOCATE. .8.10:PRINT"HAS MUERTO" 

LOCATE 3,15:PRINT"TUS PUNTOS HAN SIDO="+PU 
LOCATE 1,20:PRINT"OTRA PARTIDA SI O NO ¡S/Né" 
X$=INKEYs 

IF X$="S"0R X$="s"THEN CLEAR:GOTO 270 

IF X$="n"0R X$="N"THEN SCREEN O:END 

GOTO 710 

LINE (80,0)-(155,.10).13.BF 

PSET (86.2) ,3:PRINTRi. "VIDAS=":VI 

IF VI=0 THEN 670 

C=3:D=4:F=2 

IF BB=0 THEN BB=1:F=0 

RETURN 


DATA EE AA 5. 1,.2,4,38.20.0.80.C0.E0.C0.80.80,80.F0,80,80.80,40.2 
0.10,10.18. 
820 DATA 1.3.3.1.0.1.1.1.1.3.5/1.1.1,1,1.80.C0,E0.C0,80.80.80.80.C0.A0.90,.40,40; 


40.40.80 

830 DATA DL, EP 14111219845, 10, 0D, HOLE0- COLO 45d U50. 50, Cp, Ae tap ONE 
10 

840--DATA 13743 15171 413/59 ,2,2,2:271;80/00/00180/0780;80;80;80;C0,A0;80;80;8 
0.80.80 

850 DATAO.0,0.0,0.0,0,0.0:0.0.E3,9F.7.E8.90:0,0:.0.0.0.0/0:0:0,0,C.CE+FF,CE+44.30 
840 DATAO.1.7.F:F.1B.37,37.6F,6F.37.1B.F+F,1:0,0,80,80,C0:/C0¿E0:FO.70,B8,D8.FS.F 


0,FO.E0.80:0 
870 DATA O. 1.F.F.1B.37,6F.6F.37,.375 1B» F.F.7,1,0,0» 30» EO0.FO.FO.F8.D8.B8.70.FO.EO. 
Cco.c0.80,80. o. 0] 
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> IN 


E) 


MOSQUITO 


10? 0000000000000 000000 
20? 00040 E ooGoa0 

30”? 000.00 MOSQUITO 0000 

40? 0000 0-0 0-0 

50. ?.0-0-0.0.0.-0.-0.0.0.0.0.0.0.0.0.0.0.0.0 
60..* 


70 COLOR 1,11.,3 

80 SCREEN 3 

90 OPEN"GRP: "AShi 

100 PSET(5.80).6:PRINTR1, "MOSQUITO" 

110 -FOR Y=1 TO 1500:MEXT 

120 CLOSE 

130 SCREENO:WIDTH39: KEYOFF : SCREENO. ¿0: OPEN"GRP: "ASR1 

135 COLOR 15,1,1 

140 ZM=1:MS=5 

150 RESTORE970:FORZ=1T020: READES$: LOCATEO, Z:PRINTES: BEEP:NEXT 

150 IFINKEY$=""THEN1G60ELSECLS 

170 CLSILOCATE3.12:PRINT"ELECCION DE LAS TECLAS DE JUEGO: ":LOCATES, 18:PRINT" (PAR 
A SUBIR?" 

180 L$=INKEYS: IFL$=""ORL$<CHRS (33) ANDL$< >CHRS (30) THEN1S0ELSEIFL$=CHRS (30) THENS$= 
Ls:L$="CURSOR ARRIBA"ELSES$=L 58 

190 LOCATE1.1:PRINT"SUBIR: "¡LS 

200 LOCATES. 18:PRINT"(PARA BAJAR?" 

210 LS=INKEYS: TFL$=""0RL$<CHRE (33) ANDL$< >CHR$ (31) THENZ210ELSEIFLé=CHR$(31)THENB$= 
pe e acunseR ABAJO"ELSEB$=L$ 

220 LOCATE1,3:PRINT"BAJAR: "iL$ 

230 e e ec IR A LA DERECHA?" 

240 Lé=INKEYS: IFL$=""ORL$<CHRS (33) ANDL$< >CHRS (28) THEN240ELSEIFL$=CHR$ (28) THEND$= 
L$:Ls="CURSOR A LA DERECHA”ELSEDS$=L5$ 

250 LOCATE1.5:PRINT"DERECHA: "¡Ls 

260 LOCATES, 18:PRINT" (PARA IR A LA IZQUIERDA?" 

270 Lé=INKEYS: IFL$=""0RL$S<CHR$(33)ANDLS$< >CHRS (29) THENZ70ELSEIFLS=CHR$ (29) THENIS= 
L$:Ls$="CURSOR.A- LA -IZQUIERDA"ELSEIS=L$ 

280 LOCATE1.7:PRINT"IZQUIERDA: "iLs 

290 LOCATES, 18: PRINTSTRINGS$(30,32):LOCATES. 18:PRINT"ESTAS CONFORME (S/NM)" 

300 L$=INKEYS: IFL$="N"ORL$="n"THENCLS: GOTO17OELSEIFL$<>"S"ANDLS<>"s"THEN3OO 

310 SCREENZ. O: GOSUB1OOO: GOSUB1O20 

320 LINÉE(0,0)-(255,191),5,BíLINE(0,0)-1255,20),5.BF:COLOR1S: GÚSUBO9Z20: GUSUEIIO: GO 
SUB950:1 GOSUBIGO 

330. K=RND(-TIME):FORZ=1TOTM 

340 X5(Z)=INT(RND(1)X33):X5(2)=X5(2)%8: YS(Z)=INT(RND(1)%23+2):Y5(Z)=YS(Z)X8 
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350 K=POINT (X5(2)+4.YS (2) +9) 1 IFK<>1THEN340 

360 DRAW"BM=XS(Z)5,=YS(Z)¡C4R7D6LSU4IL2U2":PAINT(XS(Z)+4.YS(Z)+9),4:NEXT 
370 FORZ=1TO010 

380 XM(Z)=INT(RND(1)%33) 1 XM(Z)7=XM(Z)X%8: YM(Z)=INT(RND(1)X20+9) :YM(Z)=YM(Z)X8-3 
390- K=POINT(XM(Z)+3, MZ) +1FK<>1THEM380 . pj 
400 X=XM(Z)1Y=YM(Z)1DRAW"BM=Xi..=YiCóDIF3E3U1H3D2H1G2":PAINT(X+3.Y+2).6: NEXT 
910 XV=INT(RND(1)%33): XV=XVX8: YV=INT(RND(1)%21+3): YV=YVXS+1 

420 K=POINT(XV+49,YV+9) 3: IFK<>1THEN910 

430 LINE (XV, YV)- (XV +7, YV+7),2, BF 

440 XA=INT(RND(1)X33) : XA=XAX87YA=INT(RND(1)X23+2) 1: VA=SYAXS 

450 K=POINT(XA+4,YA+4): IFK<>1THEN440 

460 PUTSPRITEO. (XA.YA).8,0 

470 XM=INT(RND(1)%33) 1 XM=XM%8: YM=INT(RND (1)%23+2).YM=YM%8 

480 K=POINT (XM+49,YM+4) 3 IFK<>1THEN420 

490 DR$="D":GOSUB640 

500 ONSPRITEGOSUBS20: SPRITEON 

510 J=0:L$=INKEYS 

520 TFL$=S$THENGOSUBGOO:J=1 

530 -IFLé=B$THENGOSUB620:J=1 

540 JIFL$=D$THENGOSUB640:J=1 

550 IFL$=I$THENGOSUB670:J=1 

560 IFJ=1THEN730 

570 SOUNDO, 220: SOUND1, 3: SOUNDZ. 255: SOUND3. 5: SOUNDS. 5: IFJ=1THENFORT=1TO10:NEXT:SO 
UND3,6 

580 -K=RND(-TIME)+. 11 IFK<ZN/10THEN790 

590 GOTOS510O 

600 IFYM>28THENYM=YM-8: GOSUB?00 

610 RETURN 

620 IFYM<177THENYM=YM+8: GOSUB7OO 

630 RETURN 

640 “IFXM<247THENXM=XM+8 

650 IFDR$="I"THENKP=2:GOSUB720 

660 DR$="D".:GOSUBZOO: RETURN 

670 IFXM>?THENXM=XM-8: DR$=" 1": GOSUB?700 

680 IFDR$="1I"THENKP=1 : GOSUB720 

690 DR$="I":GOSUB70O: RETURN 

700 IFDR$="1"THENSP=2ELSESP=1 

710 PUTSPRITESP. (XM, YM). 10.SP:RETURN 

720 PUTSPRITEKP. (-8,191),.KP:RETURN 

730 TC=POINT (XM+4.YM+4) 

740 IFTC=6THENLIMNE (XM, YM) - (XM+7,YM+9).1.BF:BEEP:E=E+100: GOSUB920: MN=MN-1 
750 IFTC=4THENS30 

760 IFTC=15THEN910 

770 E=E-10:GOSUB9Z20: IFE<=0THEM830 

780 GOTOS7O 

790. .IFXM<XATHENXA=XA-4ELSEIFXM>XATHENXA=XA+4 

300 IFYM<YATHENYA=YA-4ELSEIFYM>YATHENYA=YA+4 

810 PUTSPRITEO. (XA.YA)..0:GOTOS1O 

820 RETURNS30 

830 SPRITEOFF:FORZ=1T03: SOUND1. 1: SOUNDS.5: FORT=0T0255: SOUNDO. T: NEXT: NEXT: SOUNDS, 


840 MS=MS-1: GOSUBIGO: IFMS< 1 THENS6O 

850 LINE(O0,20)-(255,191).1.BF:DRAW"EMSO. 120":PRINTRi, "CONTINUAMOS (S/N) ":L$=INPU 
T$(1): IFL$="N"ORL$="n"THENS7OELSEIFL$="S"ORL$="s"THENGOSUB1020:GOTO31O0ELSESSO 
860 LINE(0.0)-(255.191).1.BF:DRAW"BM10.120":PRINTRi, "HAN MUERTO TODOS TUS MOSQUI 
TOS":FORT=1T015:FORS=100TO1STEP-1:SOUNDO. S: SOUND1,T: SOUNDS, 4: NEXT: NEXT 

870 COLOR15.4.4:SCREENO:LOCATE3.10:PRINT"PARA OTRA PARTIDA PULSA LA TECLA P":LOC 
ATE3,12:PRINT"PARA OTRO PROGRAMA PULSA LA TECLA F”:SOUNDS.O 

880 R$=INKEYS: IFR$=""THENSSOELSEIFR$="P"ORR$="p"THENRUNELSEIFRS< >"F"ANDR$<>"+4"TH 
ENS8o 
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890 CLOSERI:CLEAR:COLOR15,4,4:SCREENO, +. 1:LOCATE9, 10: PRINT"PARA EL SIGUIENTE PROG 


RAMA" :LOCATE4S, 12: PRINT"PULSA PLAY EN EL CASSETTE!" 

900 CLOAD 

"910 FORZ=S 1TOTM: LINE (XS(Z).YS(Z)J-(X81Z)+7, YS(Z)+7),1.BF:PT=PT+10: ds E rd Zz 
y":G60SUB9940:FORT=1T025:NEXTT,Z+ZN=ZN+1: GOSUBI1OZO:+ GOTO31O j 

920 -LINE(90.0)-(125,10).5,BF3DRAW"BM1O, 1":PRIMTRi, ba ando det ia us o Da PPePeRe" ¡Es IFMN=0OT 
. HENLINE (XV, YU) =(XV+7» YV+71.15s HE. 

- 930 RETURN 

9340 LINE (202,0)-(255,10),5,BF:DRAW"BM130,1":PRINTRi,USING"PUNTOS: PePePePere" 3 PTIRET 


URN: : 
950 CENErP1O TI 1242/20) y 57BFIDRAM- EMI, 11" PRINTRITORINO "HABI APTONE ANA ens =R 
ETURN- 

960. LINE (105, ad ee o DA 20).5.BF: DRAW"BM10, 11":PRINTRi.USING"MOSQUITOS: —_.R"iMSIRET 
u R N prrcucat PP. > 

970 DATA" MOSeUuIT o0".."En MOSQUITO tendr s que sobrevivir en"."un 
a habitaci"n, que es un ambiente muy",.hostil para los de tu especié...," Para te 
“her enera!la comer s de los", "frutos que hay en la habitaci" ns pero" qe ' 
980 DATAconr ciudado de:no tropezar cor los; insecticidas ni con-el. arachido que, t 
ratar.n de. eliminarte...". Por +in podr-s salir por. la. ventana".,cuando.te hayas 
a má todos los frutos.de la habitaci"n.».." El movimiento del mosquito se real 
iza" 

990 DATAcon las teclas Que tu eliias..." PULSA CUALQUIER TECLA PARA CONTENDAR" 


1000 DATAS?, 50, 30.30.47,255,42,21,198.76.120.120, 244,255,84.168. 24. 60,102,255, 18 
9.165. 165. 165 

1010 RESTORE1000: FORSP= 2T00STE?- 1:T1$="": FORX=0T07: READE: e died ds de e SPRIT 
ES(SP)=T$:NEXT:RETURN 

1020--E=500:MN=10: TM=10+ZNX51XS(1)=0:YS(1)=0:ERASEXS,YS: DIMXS(TM) .YS (TM) ¿RETURN 
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fa 


ID lo 19 fo 19 


CRUZADA 


000000000000000 


10? 0000 
200000 0000 

30” 0000 CRUZADA COOOO 

40 ”.000-00 ; o oo 0 

50? 0000-0-00-00-00-0.00-0000-0 
60 ? 

70 *EUGENIO GARRIDO GOMEZ 

so ? 

90-? 1986 

100 "00000000000 c0606000000 
110” : 


120 COLOR 3,6.10 
130 SCREEN. 3 

140 OPEN"GRP: "ASRi 

150 PSET(35,80),6:PRINTRi, "CRUZADA" 

160 FOR Y=1 TO 1500:MEXT 

170 CLOSE 

180 COLOR 1,14 

190 SCREEN 1 

200 LOCATE 3.10:PRINT"JOTSTICK O CURSOR"J/C>" 

210 X$=INKEYS 

220 I=1+1:IF1>13 THEN I=1 

230 VDP (7)=1 

240 IF X*$="J"OR X$="i"- THEM CT=1:60T0270 

250 IF X$="c"0R X$="C" THEN -CT=0:60T0270 

260 GOTO 210 

270 COLOR 15.4.4:SCREENZ.Z2:GOSUB 610 : 
280 HX=116:HY=58:BXx=116:BY=55:T1=150:T2=150:T3=150:T4=150:P1=5:P2=4:P3=4:P4=5:D1 
=4:D2=5:D3=5:D4=4 

290 PUT SPRITE 4. (HX.,HY).1,0 

300 PUT SPRITE O. (BX.BY),6.,1 

310--PUT- SPRITE-S.(105/T1)+1,P1 

320 PUT SPRITE 6. (115.T12),.1.P2 

330 PUT SPRITE 7. (124.T13),.1.P3. 

340 PUT SPRITE 8. (133,14),1.P4 

350 A=STICK(CT):B=STRIG(CT) 

360 IF AS? "THEN" IF HX>100” THEN HX=HxX=2 

370 -1F A=3 THEN IF HX<140 THEN Hx=HX+2 

3380. IF DIFOANDA=7ANDBX>100THENBX=BX-2 

390 IF DI=0ANDA=3ANDBX< 140THENBX=BX+2 
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400 IF B=-1 AND DI=OTHEN DI=1 

310 IF DIi=1 THEN BY=BY+3 

420 IF BY>150 THEN BY=55: BX=HX:D1=0 

430 K=INT(RND(1)X6) 

440 -IF-K=OTHEN -Ti=T1-2:SWAP-P1,D1 

450 1F K=1THEN T2=T2-2:SWAP.P2,D2 

460 IF. K=2THEN.T3=T3-2:SWAP. P3,.D3 

470 IF K=3THEN T4=T4-2:SWAP P4.D49 

480 IF T1<790RT2Z<790RT3<7790RT4L 72 THEN: GOTO 600 

490 1F Bx>104 ANDBX<112 AND BY>TI1AND BY<T1+4THENFG=1: GOTO 540 

500 IF BX>115 ANDBX<123 AND BY+TZAND BY<T2+5THENFG=2: GOTO 540 

510 IF-BX>124ANDEX<132 AND BY>T3AND BY<T3+STHENFG=3: GOTO 590 

520. 1F BX>133ANDBX<141- AMD. BY>T4AND BY<T4+5THENFG=4: GOTO 540 

530 60TO..220 

540 IFFG=1 THEN FORN=T1TO 150 :T1=N:PUT SPRITE 5, (105.N).1.P1: SWAP P1.DI:NEXT N: 
GOTO 590 

550 IFFG=2 THEN FORN=T2T0 150 :T2=N:PUT SPRITE 6. (115.T12).1.P2: SWAP P2.D2:MEXT N 
¿GOTO 590 

560 IFFG=3-THEN-FORN=T3T0-150-:T3=N+PUT SPRITE-?.(124,T13)+1.P3SWAP P3.D3:MEXT.N 


:GOTOS90 
570 IFFG=4 THEN FORN=T9TO 150 :T4=N:PUT SPRITE 8, (133.14),1,P94: SWAP P4,D4:NEXT N 


:GOTOSPO 
580 GOTO 2790 
590. DI=0:BX=HX:BY=551G0T0..27%0 


600 OPEN"GRP:."ASRi:PSET (0.30).:PRINTR1, "TU. CASTILLO HA.SIDO INVADIDO":FOR. N=1.TO 
5000: MEXT N:RUMN 

610 FOR k=0 TO 5 :Bó="":FORI=170 32 ¡READ A$: B6=B$+CHR$ (VAL ("RkH"+A%$)) NEXT: SPRIT 
ES (K)=BS:NEXT 

620 LINE(O, 150) - (255, 190).9.BF 

630 LINE(104.77)=(143,160),10,BF 

640 PUTSPRITE 1. (100,70),10, 2 

650. PUTSPRITE 2. (116.70),10, 3 

660 PUÚTSPRITE. 3..1132:.70):.10...3 

670 RETURN 


¿680 DATAO.0.0,42.81.81.99.BD.BD.5M.3C.18.18,18,0.0:0:0:0:0,0:0:0:0,0:0,0:0:0:0:0 
.0.18,30,7E.7E,30,18,0,0,0.0.0.0,0,0,0.0.0,0.0:0:0,0:0,0:0:0:0:0,0:0,0:0 


690 DATAE7;AS,AS.BD,FF/FF¿7F+3F,1F.F.0.0,0;0,0,0,38.28,28,/EF,FF+FF.FF:FF:FF+FF+0 
00704070 : 

700 DATA 10.14,19,F7.FF.FF+FF.FF.FF.FF.0.0:0,0,0,0,E7.A5/A5; BD, FF+FF+FE+FC:F8+FO 
.0.0.0:-0:9:0 

710 DATA1.19.3D.3D.1M.3C0.58,98,98,18.1E,22:43:40:C0.0,0:0:0:0:0,0,0:0:0:0:0:0:0: 
0.0.0 

720 DATA 80.98.BC.BC.58.30.1A.19,19,18.78,44:02,2:3:0,0:0:0:0:0,0:0:0:0:0:0:0:0: 
0.0.0 
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Q 
o 
a 
Q 
a 
Q 
Q 
Q 
a 
a 
-S 


10?”000280000000000000000 
20” ONOCQ 0000 

30” 000 0 SALVAMENTO 0000 

340 "*"0"D0"O7O cra; 0.0 
50*0-0-00006000000000000000 
$0... 

70 ” LUIS SANGUINO ARIAS 

so ” 

90 :REMd 19836 

100? 000506000000000000000 
To” 


120 COLOR 15.12,1:KEY OFF 
130 SCREEN 3 

140 OPEN"GRP:"ASs1 

150 PSET(10.80),12:PRINTR1. "SALVAME ! " 

160 FOR I=1 TO 1500 

170 NEXT 

180 CLOSE 

190 COLOR 1,4: 1 

200 SCREEM 2. 2 

210 OPEN"arp:"AS1 

220 DEFINT X.Y.J.K 
230 FOR K=1 TO 4 :B$="":FORI=1T0 32 :READ As: Bé=B$+CHRS(VAL ("2H"+As$)) :NEXT:SPRIT 
ES (K)=BS:MEXT 

240 AA=1: BA=2: HU=0:HI=3 

250 GOSUB 460 

260. CIRCLE (227,90).15.15 

270 CIRCLE (227,90).10.15 

280 CIRCLE (227,90).7.15 

290 LINE (0,93)- (255.0).5.BF 

300 FOR ES=0 TO 255 STEP 2 

310 YE=INT(RND(1)%95) 

320 PSET(ES, YE», INT(AND(1)X14)+1 

330 NEXT 

340 CIRCLE (55.35).15.11 

350 PAINT(50,35).11 

360 CIRCLE (65.35).15.5 

370 PAINT(65,35).5 

380 TIME=0 

320. ON.--STRIGGOSUB. 430-- 

400 STRIG(CT) ON 
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EN 


410 TI=TIME/SO 

420 GOTO 420 

430 STRIG(CT) OFF 

440 "X=X+1 

450 -IF-X>210-THEN-620 

460 PUTSPRITE 1..(X.85). 1,AA 
470 PUTSPRITE 2. .(220,80+HU).1.3 
480 IF RR=0 THEN RR=1 ¡RETURN 
490 IF TI>35 THEN 520 - 
500 SWAP AA.BA: SWAP HU, HI 

510 GOTO 390 

520 YH=85- . 

530. CIRCLE(227.920),15,4 

540 CIRCLE (227.20).10.4 

550 CIRCLE (227,.90).7,4 

560 LINE (210,70)-(245,93).5.BF 
570 PUTSPRITE 2 . (220,209),.1.3 
580 YH=YH+1: 1F" YH>192 THEN MU=1:GOTO 620 
Ju 590 PUTSPRITE-3-¿(220+YH)+1. 4 . 
600 FOR I=1. TOZS5:MEXT 

“il 610 GOTO 580 

£20 COLOR 1.14 

630 SCREEN 1 


640 IF MU=1- THEN-LOCATE 0s6:PRINT" LO SIENTO TU CHICA SE HA 
AHOGADO" 

650 -IF--MU=0- THEN LOCATE 0,-6:PRINT" ERES -UN HEROE. +... ..... «ELLA TE AMARA 

SIEMPRE" 


660 LOCATE 2.10:PRINT"HAS TARDADO "+ TIi"SEGUNDOS" 

670 LOCATE 2,20:PRINT"OTRA PARTIDA SI O NO ¡S/Né" 

680 A$=INKEYS 

690 I=1+11FI>13 THEN I=0 

700 VDP17)=1 

210. -1F--A$="S5". OR-A$="s"- THEM CLEAR: GOTO12O 

720 IF. A$="n" OR A$="N" THEN END 

730 GOTO 680 

740 DATAO,0,0.0,0.3,E7.?F,8,F0.80,0,0,0,0,0,0.0.8,14,22,ED,FC.CC:20,10,10,10.20+ 
0,0,0.0,0:0.0:0:03,27,1F,8,11.26:C0:80,0:0,0:0:0:0:0:C+EC+F/CD:S81:0,0:0,0:0:0:0 
| 750 DATA 9,5.3.2,04.25,12.9.7:.3.3:.3,.1:0.0:0.20.40 

q 760. DATA 80,80,46.48.90,20,C0,70,80,80,0,0,0,0,0,D.3.4:5:2,1,47:AB.11:1:3:7:8:5: 
| 2,80.40,80,40,46,88,10.E0,C00,80,80,C0,E0,10,A+4 
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10 
20 
30 
40 
50 
60 
70 
80 
20 
100 
110 
120 


O...O...O...O..O...O...0...0...O-0--0--O-0-0-9 


SUBMARINO 


00000 
00000 
ooo000n 
00000 
ooo 
ooo 
ooo 
ooo 


000000000000000 


COLOR..3,6,-10 
SCREEN 3 

OPEN"GRP: "ASR1 

PSET(45.80).6:PRINTRA. "SUBMA" 

FOR Y=1 TO 1500:NEXT 

COLOR15,+5: SCREENO,O:WIDTH40:KEYOFF: RESTORESOO: FORZ=17022:READES: PRINTES:; CHRSs 


(72): NEXT 


130 
140 


IFINKEYS=""THEN13OELSESCREENZ2:COLOR1O 
GOSUBS40:LINE (0,0) - (255,10) .13.BF:LINE(O, 70)- (255, 191),4.BF:NS=5:NT=10:TT=0: 


NB=TT:TB=TT:YB=62: GOSUBA47O: 'GOSUB480: GOsuB4I90 


150 
160 
170 
180 
190 
200 
210 
220 


230 


240 


250 


260 
270 
280 


z7U 
300 


X=127:Y=1701 GOSUBZ?O 

L$=INKEYS 

IFL$="F"ORL$="*+"THENS80O 

IF(L$="0"O0RL$="0")ANDX>1THENX=X-1 
IF(Lé$="W"ORL$="w")ANDX<247THENX=X+1 

GOSUB270: GOSUB340 

IFL$=CHR$ (13) ANDTP=0THENTP=1: Xx T= Xi YT=Y:NT= NT- id GOSUB480: TT= 7r+4 
IFTP=0ANDNT=0THEN420 ñ 

IFNS<1THENS1O 

IFTP=1THENGOSUB280 

GOTO 160 

GOTOZ640 

PUTSPRITE2.: (X, Y),19. 2: PUTSPRITE3, (X. Y+8).14; 3: RETURN 
IFYT>?7OTHENYT=YT- SELSE3OO 
PUTSPRITES.141.117).10.9: BEEP:RETURN 

PUTSPRITE4. (XT. 191),,4:TP=0: IFXT<=XBANDXT>XB=LBASTHENXE=XT: YE=YB:GOTOS1OELSE 


RETURN 
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310 SOUND1,10:FORZ=2S5TOZ10STEP-1:PUTSPRITEO. (XE+ YE). 6.0: FORT=15TO1STEP- 1: SOUNDS 
TINEXT:PUTSPRITE1, (XE.YE).9,1:1FORT=1T030:NEXT:PUTSPRITE1: (XE:191)+ + 1:NEXT 

320 PUTSPRITEO. (XE.191)..0:FORZ=6T017:PUTSPRITEZ. (-8,191),+Z:NEXT:XB=-100: TFXE=X 
FTHENNB=NB+11GOSUB490:7 NT=NT+4-LB:GOSUB4BOELSENS=NS-1-> 

330 RETURN a : en. ES : E e ' 
340 TFXB+LEXS<STHENFORZ=6T017: PUTSPRITEZ: (-8,191) +: Z1NEXT3BB=INT(RND(-TIME) RS") 
-XB=250: TESTB+1: IFBB=1THENKB=6:LB=1ELSEIFBB=2THENKB=7:LB=1ELSEIFBB=3THENKB=8+1.B2 
PELSEIFBE=4THENKB=10:LB=2ELSEIFBE=STHENKB=12:LB=3ELSEKB=15:1B=3 

350 Do xB- 3 RB=O:FORE=KB+LB-1TOKBSTEP-1:PUTSPRITEZ: (XB-RB. YB)» 1: 29 RECRE+O MER" 
360 IFX>XBANDX<XB+4THENCS=1 1 XC=XB: YC=70 Ps 

370 IFCS=0THENRETURN 

380 IFYCCISGTHENYU=YC+BELSECS=0: PUTSPRITES, (X0+191)+7:5+RETURN 

390 PLAY"T255L64C":PUTSPRITES: 
THENNS=NS-1: GOSUB470: XE=X1 YE=Y01 GOSUB310:CS=0:PLUTSPRITES. (XC+191):.5 

400 -RETURM 

410 FORZ=20TO1OSTEP-1:PLAY"TZS5L64N=Z3 "3 NEXT: COLOR15: DRAW"BM40. 120": PRINTRI, "TU 
FLOTA DE SUBMARINOS": DRAW"BM40,130":PRINTRi, "HA SIDO DESTRUDIDA":60T0430 

420 FORZ=?0TO1OSTEP-1:PLAY"T255L64N=Zi "3 NEXT: COLOR15: DRAW"BM40, 12 ":PRINTR1, "TE 
QUEDASTE SIN TORPEDOS": DRAW"BM40.130":PRINTR1, "HAS “SIDO DESTRUDIDO”:6070430 

430 FORT=1703000: NEXT! COLOR15:SCREENO:LOCATES+6:PRINT*PUNTUACION: "¿LOCATE2,8:PRI 
NT"N. TOTAL. DE-TORPEDOS. DISPARADOS:"5TT:LOCATE2.10:PRINT"M.. TOTAL DE BARCOS ENEM 
1GO0S: "+TB:LOCATEZ, 12: PRINT"N. BARCOS ENEMIGOS HUNDIDOS: "+NB 

440 LOCATE1,14:PRINT"HAS HUNDIDO EL"s INT(NBX100/TB)+"% DE LA FLOTA ENEMIGA": LOCA 
TE 7.20:PRINT"PARA OTRA PARTIDA PULSA P":LOCATE 7,22:PRINT"PARA OTRO PROGRAMA PU 
LSA 0" 

450 L$=INKEYS: IFL$=""THEN45O 

460 "IFL$="P"ORL$="D"THENRUMELSEIFL$="0"0RL$="0"”THENSSOELSE46O 

470 LINE(86,0)-(112,10),13,BF:DRAW"BMO, 2": PRINTR1+USING "SUBMARINOS: RR" iNS: RETURN 
480 LINE(120,0)-(136.10),13.BF:PUTSPRITEZ20, (107,1).10,4:DRAW"EM120.2":PRINTR1+US 
ING"RR"3NT: RETURN , 

490 LINE(230.0)-1255.10),13,BF:PUTSPRITE21, (140,0),10,8;PUTSPRITE22, (148,0),10+? 
:DRAW"BM160,2":PRINTRA.,USING"HUNDIDOS: APP" 5NB: RETURN 


500 DATA” S UB NM A R 1: N 0".. 

-510 DATA" "Eres el Capit n de un submarino en”. "auérra. y por lo tanto tu misi'"n 
es"shundir a los barcos enemigos..+,” Te bastar” un torpedo para hundirlos".,y € 
uando lo consigas recibir s m- s,torpedos.-El enemigo te lanzar unas Ñ 
520 DATAterribles cargas. de profundidad...” El. submarino. se- miueve-a- la izouierd 
Sl Q y a la derecha con W. el torpedo".se dispara Dulsando <ENTER>..." El 
1ueso termina al ser hundido cinco"."veces. al acabarse los torpedos O "Lasa 
ro la tecla F. : É 

530 DATA..." PULSA UNA TECLA PARA COMENZAR EL JUEGO" 


dl FORY=0T017:T$="":FORX=0T07:READE:Té$=T$+CHRS(E)¡MEXTISPRITES(Y)=TS: NEXT: RETUR 
550 DATA133,80,132.41.134.53.74,149.34,.20.165.66.165.153.74.36,.16,56,124,124,254 
254,238, 198,198, 198,238,254,124,124,56,40,16.56,56,56,56,16:56;40,0,0,0,60,36.6 
0160.60 ¡AR E 
560 DATAO,0;2,78;83/255,127/62,0,0,0,0,8,28,254,127,0,7,116.55,255,.127,63,31,64, 
192,39,246,255,255,259,252,0,0,73,73,255,127,63.31,32,60,34,62.255,255,254,252,0 
,0,.238,102.255.127.63.31,0:127,170,213,255,255,255, 255,48, 248,172,84,255:255,254 
.252 
570 DATAS,60.20.255,63,31:15.7,16.241,83:255; 255,255; 255, 255,240, 168,84, 259, 252; 
252.248,240 

580 CLEAR: SCREENO: LOCA 

PULSA PLAY EN-EL CASSETTE” 


590-CLOAD 


TE4.12:PRINT"PARA EL SIGUIENTE PROGRAMA" :LOCATE4,14:PRINT" 
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¡AMIA 


ARCO) 7951 1FXC>=X-4ANDXC<=X+4ANDYC>=VANDYC<=Y+16 


19 19 12 


ref 


EN ES JANE 
3 ES EX 
EX ES ES ES 


sa 


o 


10-14-40 8--Q--0--Q--Q--0-8--4--0.-0--0--0--Q-0-0 
20.,.0.0.0.,0 0.0.0.0 

30”? 0004 SALTO Do000 

30 ”?0000 20000 

5 ?00(0000C00000000:0:0 0:0:0 
sur A 

70-*LUIS SANGUINO- ARIAS 

80... 

90..! 1936 

100”? 0.000000000000000000 
110: ” 


120 CLEAR:COLOR 3.6.10 
130 SCREEN-"3 

140 OPEN"GRP:"ASPi 

150. PSET(55,80).6:PRINTRi. "SALTO" 

160 FOR Y=1 TO 1500:NEXT 

170 CLOSE 

180 COLOR 1,2.13:SCREEN 2.2.1 

1590 DRAW"C1S5BMO, 25F65SRZPF1DESRIG2UIBMO. 19C7RZESRI4FZBRSEZ4FSEGF 1 1USE7FI9DIFIESIF 
GUTESRIDSUTESDZFSUTE?F2Z3D1ZU1L3" : 

200 PAINT (1.1).7 

210 PAINT. (1.191),15 

220 Bs$="":FOR K=1 TO 3 :BS="":FORI=1T0 32 ¡READ As: BS=B$+CHRES(VAL ("RH"+A%)):MEXT 
¿SPRITES (K)=BS:MEXT 

230 OPEN"GRP: "ASPi 

240 G=705 5" 

250 SOUND 6:15:SOUND 7,7 :SQUND 3, 16:S0UND 9,16:S0UND 10, 16:S0UND 11,0 ¿SOUND 12; 
16:S0OUMD 13,0. > a 

260 OM. STRIG. GOSUB. 370 

270 X=0:Y=3:M=2:B=3 

280 Y=Y+1 

290 STRIG(O) ON 

300 X=xX+1 : 

LO PUTSPRITE SONT 


3POFPUTSPRITE CTO (A YO A 
330--1F--X>%5- THEN Y=4Y+-(1/6)) 
IF Y2155..THEN 300 


(350 IF Y>60 THEN A=B:GOTO 300. 


2420 IF A(J)>JJ THEN JJ= A (3) 


360 GOTA 230 


370 STRIG(O) OFF 7 
380 G=G+:1 * 


390- RETURN 


400 J=3+1 e is AE. 


410. A(JI=X 


430 LINE (60. 0) - (200. 10),15. BF 


“440 PSET(66,3),15: PRINTR1, "ULTIMO SALTO="3xX 
450 FOR I=1 TO 100:BEEP:NEXT bi 


460 LINE-(60+0)-(200+10)+15,+BF 


470. PSETAZO,3)..7: PRINTRA. "MEJOR SALTO="433- 


480. FOR. I=1.T0.1000:NEXT 
490 IF 3)4 THEN 510 
500 GOTO 240 


¿510 COLOR 1.15.6 


520 SCREEN 1:KEY OFF 

530- LOCATE-7+10:PRINT"TU-MEJOR- SALTO" -- . 

540 LOCATE..5.13:PRINT"HA SIDO="3JJi "METROS" 

550 LOCATE 1.20:PRINT"OTRA PARTIDA 51 0 NO ¡S/N¿" 
560 X$=INKEYS 

570 IF X$*="S" OR X$="s"THEN RUN 

S80 IF UXSS"n" OR X$="N"THEN CLS: SCREEN O:END 

590 GOTO 560 


600. DÁTAO, de 3v 33d B 7777733717 804804604 E01+00+80,80,00+00+C0+E0+B0,98;0 
.84.88.2.7+1.0,21.12.8,5,3:1,0:0,0; 0, 0.0. 90; EO.EO0.FO0.30.60,C0, 80. 80.80.80.40,20+ 
110.60 E do Ma De E 
610 DATA7, SY 3.3,.3.6:.6:C,C,1C,1E,FF,0;0:0:88,88,8,8,8,3,8,8,1C,8,0,4,F8,0,0,0 
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ROS 


AL LS SS 


eses perros Puraces 


190” 0060000000000060600606 
20” 0-00-0 D-0-0-D 

30 *.0 0-0 OSUPER MOTO 0.0.0.0 

40” 0000 oooO" 

50 "6606090000000 000000 
60 ? 

70 >EUGENIO GARRIDO GÓMEZ 

so > 

90 ? 1926 E 

100” 00.0.0.0.0.00.00.0.90.0.0.0.0.0.0.0 
110 ” 


120 COLOR 3.6.10 
130 SCREEN 3 

140 OPEN"GRP: "ASR1 

150 PSET(45,80),6!PRINTRi, "SUPER" 

160.FOR.Y=1. TO 1500:NEXT 

170 CLOSE 

180 COLOR 1,14 

190 SCREEM 1 

200 LOCATE 3.10:PRINT"JOTSTICK Ó CURSOR"I/C3" 

210 XS$=IMKEYS i 

220 I=1+111FI>13-THEN- I=1 

230 VDP(7)=1 : 

290 IF X$="J"OR X$="i" THEN CT=1:GOTOZ70 

250 IF X$="c"O0R X$="C" THEN. CT=0: G0TO270 

260 GOTO 210 * 

270 COLOR 15,4, 1:SCREEN 2.2 

280 GOSUB 520 

290 -YH=20:XH=34: GOSUB-510 

300 PUTSPRITE. 2. (YH.XH). 1. 1 

310 PUTSPRITE 1.( YH. XH). 8. 2 

320 YH=YH+V1 

330 IF YH>255 THEN XH=84: YH=0 

340 A=SSTICKICT):1F A=1 THEN VE=VE+I1:LINE (0,170)=(VE,176).6,BF:VI=VE/10 
350 -1F A=5 THEN VE=VE-3:+LIME (VE, 170)-(255,176),9,BF:V1=4/4 
360 IF Vi<=0 THEN -VE=0O:LIME (VE, 170)-(255,176).4.BF 

370 B=STRIGÍCT) 
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380 IF B=-1 AND EN=0 THEN SA=1:EN=1 
390 IF SA =1 THEN XH=XH-2 
400 IF BA=1 AND xH<894 THEN XH=XH+3 
410 IF SA=1 AND XH=<460 THEN BA=1:5A=0" 


-420 IF -XH=>84" THEN EN=0:5A=0:BA=0 . 
430 IF POINT (YH+16.XH+16)=1 THEN GOTO 460 
440 IF XH=>84 AND YH=>240 THEN OF=0F+1:RESTORE:VE=0:GOTO 280 
450 GOTO 300 
460 FOR N=1 TO 10:CIRCLE (YH+9.XH+9):+N,6:NEXT ON 
470 FOR N=1T020: YH=YH+5: XH=XH+SIN (NX1O) 
480 PUTSPRITE 11 YH, XH). 8, ZINMEXTÓN 
490 FOR I=1 TO13:FOR N=1 TO 8:A=INT(RND(1)%£255) 1 VPOKE 4352+N+A! VPOKE 12549+N.A: Y 
H=YH+3:XH=XH+SIN (M/10) 
500 NEXT. I¿RUM... 
510 PSET (82+11,100).15:DRAW "S4E1OD1OL1O":PAINT (97,98), 15:FOR O=1 TO OF: CIRCLE 
(100+(0%11),95).5.1:CIRCLE (100+(0%11).95),3,1:PAINT (100+(0%X11),95)+ 1: NEXT O:R 
ETURN 7 $ : 
520 FOR K=1 10 4 B$="":FORI=1TO 32 ¡READ A$: Bé=B$+CHR$ (VAL ("LH"+A%)) NEXT: SPRIT 
ES (K)=BBb1 NEXT" 
530 LINE (0, 50)-(255,60).10,BF 
-540 LINE (0.100)-(255.110).10,BF 
550 PUTSPRITE 2.(20.34). 1. 1 
560 PUTSPRITE 1.( 20. 34), 8, 2 
570 PUTSPRITE 5.( 240. 84), 10. 4 
580 FOR M=0 TO 255: VPOKE 6144+512+N.32: NEXT N 
590 FOR-N=1. TO-8:A=INT(RND(1)4255)1VPOKE 4352+N+A3NEXT-N 
600 FOR N=0 TO 8:A=INT(RND(1)%255) :VPOKE.8192+4352+M,A:NEXT N 
610 RETURN 
620 DATAO.0.0.0:0,0,0.0.61:9D,E.77.94,BF,90,60:0:0.0,0:0,20:10:D8:DO:BE,71,EC.5A 
.92,12,0.0.1.1.1.3:6:.6:6:3:1,1:1,.0:0,.0:0,0:80,80,0,0,C0.20:0:0:0.0:80:0:0:0:0:0» 
0.1.F.F.19,19.19.19,18,1F.19,19,1F.C,C,0,0 
630 DATAS0.FO.FO.18.58.18,F8,58.F8,98,98.F8.30,30,0:0,0:FF+.BS.DF.2D.D3,F7,DA:Fl: 
97,F7,D7:FB,FF;0,0,0,FF,28,BD.DF,AD.BB,2B,3C.6E,FC.BF.7D.FA 
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(91) 266 66 01 
(91) 266 66 02 


ESTAS SON 
TUS REVISTAS 
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Esto no es un libro para el 
principiante novato, al con- 
trario, introduce al progra- 
mador MSX “dentro” del or- 
denador, para mostrarle exac- 
tamente como funciona y co- 
mo obtener el máximo partido. 


Los autores han dividido 
su libro en dos partes. 


La primera parte cubre el 
diseño del sistema, como el 
vocabulario de BASIC se rela- 
ciona con los ordenadores 
MSX, y una introducción tcó- 
digo máquina. Encontrará ex- 
plicaciones detalladas sobre la 
organización de la memoria, 
los modos de pantalla y los 
circuitos de vide y sonido. 


La segunda parte se dedica 
al uso del lenguaje ensam- 


puntos: 


— Entradas/Salidas. 


P.V.P. 1800 pts! 


Domicilio de envíos: 


Nombre y apellido 
Domicilio .. E 


|_ Número | Cantidad 
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Para Programadores MSX 
tu fiel compañero. 


GUÍA DEL PROGRAMADOR MSX 


blador en: el sistema MSX. Los principales apartados incluyen los 


— El procesador de pantalla de vídeo. 
— El circuito de sonido AY-3-8910. 


Tanto si necesitas escribir programas de alta eficacia O 
solamente quieres como trabaja tu ordenador, este libro será 
inestimable. Pensamos que rapidamente se convertirá en el 
texto base para aquellos programadores que quieren hacer 
algo más que escribir programas en BASIC. 


agolanruel 


BIBLIOGRAFIA 


CODIGO MAQUINA 


La llegada de standar MSX, 
marca un paso significativo 
dentro del mundo de los or- 
denadores domésticos. Ofre- 
ce infinidad de excitantes 
oportunidades para progra- 
madores y usuarios. 

Este libro, supone que no 
tienes conocimientos previos 
sobre código máquina. Em- 
explicando las equivalentes 
en código máquina, de las 
principales instrucciones en 
Basic, tales como IF, FOR/ 
NEXT, PRINT, GOTO, GOSUB, 
etc... Continúa con la descrip- 
ción muy detallada de las ru- 
tinas individuales de un sim- 
ple juego: “INVASOR DEL 
ESPACIO”, y cómo se enlazan 
estas rutinas que puedes 
aprovechar en tus programas 
en Basic. 


e Aprende lo fácil que es incorporar ru 


programas fáciles de usar. 


tinas en CO 
máquina dentro de tus programas en Basic. 
e Usa el código máquina para crear sonido y gráficos. 
e Diseña tus propios caracteres y “escenarios” con dos 


PROGRAMACION 
PRACTICA 


Igo 


Tanto si simplemente desea incluir rutinas para acelerar y 
mejorar tus programas en Basic, como si quieres un programa 
completo y potente en código máquina, encontrarás este 
libro extremadamente útil. En él está suprimida la teoria que 
dificulta el código máquina, y se presenta de una forma 


práctica y divertida de aprenderlo. 


P.V.P. 1.200 pts. 


TARJETA DE PEDIDO [] TT TTT] 


TITULO Y AUTOR 


Fdo.: 


Libros, Revistas, Suscripciones, Importación y 


Distribución 
Chiquinquirá, 28. Locai 4 (Cocuy). 28033 MADRID. 


e Todo tipo de información bibliográfica sobre micro- 
ordenadores, desde AMSTRAD a Sinclair QL 


e La mayor variedad de libros de microinformática, 
capaces de satisfacer todas sus necesidades, ya sean 
profesionales, familiares, culturales... 


Telef.: 764 $0 95 


14 690 Ptas. 


(9) 


N 


- CURSO »/3 


BASIC -+ 


| MICROORDENADORES 


Ss 
| =] — Introducción a 
SS la Informática a 
| y — Electrónica [con experimentos] - 
El Curso CEAC a Distancia, — Contabilidad . 
| BASIC +Microordenadores, - Fotografía . 
Eleva a introducir paso | E — Curso de Video 
a paso, con un cuidado o O RO TN Pedo 
método, en uno de los temas más EN ESTAS ENSEÑANZAS SE AJUSTAN AL ART. 35 
| apasionantes de nuestros días: DEL DECRETO 707/1976 Y ALA ORDEN MINISTERIAL DE 5/2/1979 
| .la programación de ordenadores. 
Al aprender PRACTICANDO desde un principio 
“a programar BASIC, lenguaje diseñado P se Ud 
especialmente para dar los primeros pasós deseo recibir a la mayor 
: en programación, estará sentando las bases brevedad posible información 
para el estudio de cualquier otro ff sobre el Curso de: 
| lenguaje de alto nivel. Í 
q Nombre y apellidos y Edad 
i Domicilio : 
| NO Piso Pta. Tel, 
| , E-Postal_.—— Población 
Provincia 
E 
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